demand refill
supplied-by
: \s ( "..." -- )  \ discard rest of current input source
	begin refill 0= until postpone \ ; immediate
